10 REM גדבחלIJכ¼áזדןחגדבחלIJכ¼áIJמגáאחמIJפךáספחמקנרקáספנופIJל¢20 REM הנפáרצדáתחקזáצדבקנפáלנגחהחבIJקחנמáספנופIJלצ«áצדקרסáהנפáקזדáIJקIJפחáõãØÃáÕãáבנכרלמáספחמקדפ«¢30 REM ¢40 REM ¢158 REM ½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½¢159 REM ½ WRITTEN BY BILL DEBRUIN ½¢160 REM ½ 7/8/84 ½¢161 REM ½.............................½¢162 REM ½ This program is donated to ½¢163 REM ½ the 4-ACES COMPUTER LIBRARY ½¢164 REM ½ in AUGUSTA, GA. The program ½¢165 REM ½ is intended to be in the ½¢166 REM ½ public domain and is not ½¢167 REM ½ to be sold for any reason. ½¢168 REM ½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½¢169 REM ¢170 REM ¢180 SETCOLOR 2,0,0:POKE 82,0¢190 ? "}":? "This program will printout the ΣσπΘϕβ∮, Φσ°βΣσπΘϕβ∮, and ΓΘ∈β≥∙ conversions for all numbers between";¢200 ? " 1-720. The numbers correspond to the number of sectors on a disk. This listing is for use with those";¢210 ? " programs such as sector fixers."¢220 ? :? "This program is designed for the Atari 1027 80-column printer."¢230 ? :? "לβδσá≤⌡≥σá∙∩⌡á⌡≤σáµβ∈µ∩∮Σá≡β≡σ≥á≈Θ⌠Φá⌠Φσá≤σ∮÷βτσá≥σϕ∩÷σΣ«"¢240 ? :? "קרפמáנההáךנרפáקשáרמקחכáקזדáספחמקדפáצקנסצ«áחקáתחככáקIJידáIJáתזחכדáקנáפרמ«"¢250 ? :? "Press õ to run the program:"¢260 INPUT ZZZ:IF ZZZ<>1 THEN 250¢270 ? "}"¢280 REM צדקרס¢290 DIM H1$(4),H2$(16),B1$(8),H3$(4),B2$(8),NUM$(3),ST$(71),TITLE$(71)¢300 H2$="0123456789ABCDEF":H3$="0000"¢310 ST$="00000000000000000000000000000000000000000000000000000000000000000000000"¢320 TITLE$="DEC HEX BINARY *+* DEC HEX BINARY *+* DEC HEX BINARY "¢330 C=4096:N=1:F=1¢340 LPRINT " DECIMAL, HEXIDECIMAL, & BINARY REFERENCE TABLE"¢350 LPRINT " by Bill DeBruin"¢360 LPRINT " written 7/8/84"¢370 LPRINT " (use when working with ATARI sector modification programs)"¢380 LPRINT :LPRINT ¢390 LPRINT TITLE$:LPRINT ¢400 REM לIJחמáספנופIJל¢410 N1=N¢420 U=N¢430 V=U¢440 FOR Q=1 TO 4:W=INT(N/C):H1$(Q,Q)=H2$(W+1,W+1):N=N-C*W:C=C/16¢450 NEXT Q¢460 IF U>255 THEN B1$="........":GOTO 520¢470 P=1¢480 FOR X=7 TO 0 STEP -1:B=2^X¢490 IF INT(V/B)=1 THEN B1$(P,P)="1":V=V-B:GOTO 510¢500 B1$(P,P)="0"¢510 P=P+1:NEXT X¢520 H3$=H1$:B2$=B1$¢530 IF N1<10 THEN NUM$(1,2)="00":NUM$(3)=STR$(N1)¢540 IF N1>=10 AND N1<100 THEN NUM$(1,1)="0":NUM$(2,3)=STR$(N1)¢550 IF N1>=100 AND N1<721 THEN NUM$=STR$(N1)¢560 IF N1=721 THEN END ¢570 IF F=1 THEN ST$(1,3)=NUM$:ST$(4,5)=" ":ST$(6,9)=H3$:ST$(10,11)=" ":ST$(12,19)=B2$:ST$(20,26)=" *+* "¢580 IF F=1 THEN F=F+1:GOTO 640¢590 IF F=2 THEN ST$(27,29)=NUM$:ST$(30,31)=" ":ST$(32,35)=H3$:ST$(36,37)=" ":ST$(38,45)=B2$¢600 ST$(46,52)=" *+* ":IF F=2 THEN F=F+1:GOTO 640¢610 IF F=3 THEN ST$(53,55)=NUM$:ST$(56,57)=" ":ST$(58,61)=H3$:ST$(62,63)=" ":ST$(64,71)=B2$¢620 LPRINT ST$¢630 F=F+1:IF F=4 THEN F=1¢640 N=N1+1¢650 C=4096:H1$="0000":GOTO 400¢660 STOP ¢
